/* GUI CONVERTED from rcsoiscf.p (converter v1.76) Tue Aug 21 08:06:40 2001 */
/* rcsoiscf.p - Release Manageent Customer Schedules                    */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/* $Revision: 1.8 $                                                     */
/*                                                                      */
/* Revision: 1.7       BY: Dan Herman    DATE: 07/16/01   ECO: *P006*   */
/* $Revision: 1.8 $    BY: Dan Herman    DATE: 08/15/01   ECO: *P01L*   */
/*V8:ConvertMode=Maintenance                                            */
/*                                                                          */
/* -----  W A R N I N G  -----  W A R N I N G  -----  W A R N I N G  -----  */
/*                                                                          */
/*         THIS PROGRAM IS A BOLT-ON TO STANDARD PRODUCT MFG/PRO.           */
/* ANY CHANGES TO THIS PROGRAM MUST BE PLACED ON A SEPARATE ECO THAN        */
/* STANDARD PRODUCT CHANGES.  FAILURE TO DO THIS CAUSES THE BOLT-ON CODE TO */
/* BE COMBINED WITH STANDARD PRODUCT AND RESULTS IN PATCH DELIVERY FAILURES.*/
/*                                                                          */
/* -----  W A R N I N G  -----  W A R N I N G  -----  W A R N I N G  -----  */
/*                                                                          */

         /* SHIPPER CONFIRM SUBPROGRAM */
/*------------------------------------------------------------------------
Purpose:       Call the program to calculate the extended price of
               additional line charges on the shipper.

Exceptions:    None
Conditions:
Pre:           Line Charges must be enabled.
Post:
Notes:
History:

Inputs:
pAbsRecid       (recid)
pShipper        (character)
pConfirm        (logical)
pForASN         (logical)

Outputs:

----------------------------------------------------------------------------*/

{mfdeclre.i}

      /* SHIPPER CONFIRM SUBPROGRAM */


define input parameter pAbsRecid as recid no-undo.
define input parameter pConfirm like mfc_logical no-undo.
define input parameter pForASN  like mfc_logical no-undo.

define shared variable auto_post like mfc_logical.
define variable par_shipfrom as character no-undo.
define variable par_id as character no-undo.



for first abs_mstr
   fields (abs_id abs_shipfrom abs_order abs_line abs_par_id)
   where recid(abs_mstr) = pAbsRecid no-lock: end.

assign
   par_shipfrom = abs_mstr.abs_shipfrom
   par_id       = abs_mstr.abs_id.

if abs_mstr.abs_id begins "i" and
   can-find(first absl_det where
                  absl_abs_id = abs_mstr.abs_id and
                  absl_abs_shipfrom = abs_mstr.abs_shipfrom and
                  absl_order = abs_mstr.abs_order and
                  absl_ord_line = integer(abs_mstr.abs_line))
then do:
   {gprun.i ""rcsois1b.p""
      "(input abs_mstr.abs_id,
        input abs_mstr.abs_shipfrom,
        input abs_mstr.abs_order,
        input integer(abs_mstr.abs_line),
        input recid(abs_mstr),
        input pConfirm,
        input pForASN)"}
/*GUI*/ if global-beam-me-up then undo, leave.

end.

for each abs_mstr
   fields (abs_id abs_shipfrom abs_order abs_line abs_par_id)
   where abs_mstr.abs_shipfrom = par_shipfrom
   and abs_mstr.abs_par_id = par_id no-lock:
/*GUI*/ if global-beam-me-up then undo, leave.


   {gprun.i ""rcsoiscf.p"" "(input recid(abs_mstr),
                             input pConfirm,
                             input pForASN)"}
/*GUI*/ if global-beam-me-up then undo, leave.

end.
/*GUI*/ if global-beam-me-up then undo, leave.

